home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm / 00763_SU-bt ejc.ls < prev    next >
Encoding:
Text File  |  1996-05-11  |  809 b   |  40 lines
  1. on MouseClick
  2.   global gLocLabel, gLabel, gEtudAct
  3.   set gLocLabel to "SU:OU" && gEtudAct
  4.   set gLabel to "SU:IN GE"
  5.   curseur(6)
  6. end
  7.  
  8. on mouseDown
  9.   global gNumSpr, g1erSprLoc, gBoutons, gEtudAct
  10.   if (gEtudAct = "EN") or (gEtudAct = "HI") then
  11.     set gNumSpr to g1erSprLoc + 6
  12.   else
  13.     if gEtudAct = "ST" then
  14.       set gNumSpr to g1erSprLoc
  15.     else
  16.       set gNumSpr to g1erSprLoc + 10
  17.     end if
  18.   end if
  19.   gBoutons(appuie, gNumSpr)
  20. end
  21.  
  22. on mouseUp
  23.   global gNumSpr, g1erSprLoc, gEtudAct
  24.   curseur(1)
  25.   if (gEtudAct = "EN") or (gEtudAct = "HI") then
  26.     set monNumSpr to g1erSprLoc + 6
  27.   else
  28.     if gEtudAct = "ST" then
  29.       set monNumSpr to g1erSprLoc
  30.     else
  31.       set monNumSpr to g1erSprLoc + 10
  32.     end if
  33.   end if
  34.   if gNumSpr = monNumSpr then
  35.     MouseClick()
  36.   else
  37.     pass()
  38.   end if
  39. end
  40.